#!/usr/bin/R --vanilla --slave -f

source('tnet.R')

args <- commandArgs(trailingOnly=T)
n <- args[[1]]

# n copies of it
d <- airquality
for (i in 2:n) {
  d <- rbind(d, airquality)
}

t <- tnet.dump(d)
cat(t)
